Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/dsp/dspgroup/macros.arc/SACX.ASM

Assembly Source File | 1983-11-17 | 2.0 KB | 27 lines

*
*STORE DOUBLE
*
SACX   $MACRO  A         STORE DOUBLE
       $VAR ST,SP,SM
       $ASG '*' TO ST.S
       $ASG '*-' TO SM.S
       $ASG '*+' TO SP.S
       $IF A.SV=ST.SV
       SACH *+,0         STORE HIGH
       SACL *-,0         STORE LOW
       $ELSE
       $IF A.SV=SP.SV
       SACH *+,0         STORE HIGH
       SACL *+,0         STORE LOW
       $ELSE
       $IF A.SV=SM.SV
       SACL *-,0         STORE LOW
       SACH *-,0         STORE HIGH
       $ELSE
       SACH :A:,0        STORE HIGH
       SACL :A:+1,0      STORE LOW
       $ENDIF
       $ENDIF
       $ENDIF
       $END